(inferior-scheme-mode-map): Use copy-keymap.

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 30510103b7b15d408389e16520cfbca5742caefe..e3f63527a99c663ee9ce70030bc90d699dd65a86 100644 (file)
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -117,7 +117,7 @@
 
 (cond ((not inferior-scheme-mode-map)
        (setq inferior-scheme-mode-map
-            (full-copy-sparse-keymap comint-mode-map))
+            (copy-keymap comint-mode-map))
        (define-key inferior-scheme-mode-map "\M-\C-x" ;gnu convention
                   'scheme-send-definition)
        (define-key inferior-scheme-mode-map "\C-x\C-e" 'scheme-send-last-sexp)